home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / vb6_sr_3 / getshort.frm next >
Text File  |  1999-02-25  |  2KB  |  68 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   2715
  5.    ClientLeft      =   60
  6.    ClientTop       =   375
  7.    ClientWidth     =   7755
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   2715
  10.    ScaleWidth      =   7755
  11.    StartUpPosition =   3  'Windows Default
  12.    Begin VB.CommandButton Command1 
  13.       Caption         =   "Convert File Name"
  14.       Height          =   375
  15.       Left            =   2640
  16.       TabIndex        =   2
  17.       Top             =   2040
  18.       Width           =   2535
  19.    End
  20.    Begin VB.TextBox Text2 
  21.       Height          =   375
  22.       Left            =   120
  23.       TabIndex        =   1
  24.       Top             =   1440
  25.       Width           =   7335
  26.    End
  27.    Begin VB.TextBox Text1 
  28.       Height          =   375
  29.       Left            =   120
  30.       TabIndex        =   0
  31.       Top             =   600
  32.       Width           =   7335
  33.    End
  34.    Begin VB.Label Label2 
  35.       Alignment       =   2  'Center
  36.       Caption         =   "Here you can see the returned short file name."
  37.       Height          =   255
  38.       Left            =   1080
  39.       TabIndex        =   4
  40.       Top             =   1080
  41.       Width           =   5415
  42.    End
  43.    Begin VB.Label Label1 
  44.       Alignment       =   2  'Center
  45.       Caption         =   "Enter a full path to a file with a long file name. For example: C:\windows\desktop\your long file name here.txt"
  46.       Height          =   495
  47.       Left            =   1200
  48.       TabIndex        =   3
  49.       Top             =   0
  50.       Width           =   4935
  51.    End
  52. End
  53. Attribute VB_Name = "Form1"
  54. Attribute VB_GlobalNameSpace = False
  55. Attribute VB_Creatable = False
  56. Attribute VB_PredeclaredId = True
  57. Attribute VB_Exposed = False
  58. Option Explicit
  59.  
  60. Private Sub Command1_Click()
  61.  
  62. 'variable to hold input path
  63. Dim DosPathName As String
  64.  
  65.   DosPathName = GetDosPath(Text1.Text)
  66.   Text2.Text = DosPathName
  67. End Sub
  68.